home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / COMPNENT / ISAMEXPT / ISAMEXPT.ZIP / U_DBTOOL.INT < prev    next >
Text File  |  1996-04-05  |  2KB  |  47 lines

  1. unit U_dbtool;
  2.  
  3. interface
  4.  
  5. Uses DBITypes, DBTables, DBIProcs, DBIErrs, Forms, DB;
  6.  
  7. const
  8.   FindFirst  = 0;
  9.   FindLast   = 1;
  10.   FindNext   = 2;
  11.   FindPrev   = 3;
  12.   PrimaerSchluesselName: String = '';
  13.  
  14.   Type
  15.        Structure_GetProc   = Procedure(var TDesc: crTblDesc; FNummer: Byte; var Fld: FldDesc);
  16.  
  17.   Procedure Check_Alias(Aliasname,Pfad: String);
  18.   {will create an IDAPI-ALIAS to the given path.}
  19.  
  20.   Function Erzeuge_Tabelle(aParent : TForm;
  21.                            Database: TDatabase;
  22.                            FileName: String;
  23.                            StruGet : Structure_GetProc): Boolean;
  24.   {creates a DBASE-TABLE or a PARADOX-TABLE, STRUGET will be
  25.    created by the Expert in STRUCTURE-Unit}
  26.  
  27.   Function Kopiere_Daten(aParent : TForm;
  28.                          Table1  : TTable;
  29.                          Table2  : TTable;
  30.                          Database: TDataBase;
  31.                          FileName: String;
  32.                          StruGet : Structure_GetProc): Boolean;
  33.   {will copy data from one DBASE-Table to the other,
  34.    works safer that BATCHMOVE}
  35.  
  36.   Function Kopiere_Struktur(aParent: TForm;
  37.                             Table1: TTable;
  38.                             Table2: TTable;
  39.                             NeuName: String): Boolean;
  40.    {will copy the structure of one DBASE-Table to a new
  41.     table. Tablename of new table is NEUNAME}
  42.  
  43.   Function Verify_Tabelle(Table: TTable; StruGet  : Structure_GetProc): Boolean;
  44.    {will start TUTILITY.DLL to check the integrity of a PARADOX-Table}
  45.  
  46. implementation
  47.